home *** CD-ROM | disk | FTP | other *** search
- indVesaMode(xsize,ysize,24);
- END;
- IF mode = 0 THEN BEGIN
- WriteLn('No such mode could be found !');
- WriteLn('Switching to to 320x200.');
- ReadKey;
- mode := V320x200x256;
- END;
- END;
-
- begin { program body }
- SelectMode;
- Initialize;
- ReportStatus;
-
- { AspectRatioPlay; }
- FillEllipsePlay;
- SectorPlay;
- WriteModePlay;
-
- ColorPlay;
- { PalettePlay only i